home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / vbdos / pro15 / srthello.bas < prev   
BASIC Source File  |  1992-11-08  |  9KB  |  169 lines
  1. '******************************HELLO.EXE***********************
  2. 'strhello2.bas is now the startup file.  Can not compile a program with
  3. 'a form (*.FRM) and a  *.BAS file with the same name.
  4. 'Must use the --FormName-- with the metacommand $FORM and NOT the filename
  5. '(ie don't use HELLO2.FRM).  This now works and I am happy.  I can startup
  6. 'this program with a *.BAS file rather than a *.FRM file.
  7. 'used a smaller version of the CONSTANT.BI include file called COLORS.BI
  8. 'Added a file view program and a HELP.TXT
  9.  
  10. '$FORM Fileview
  11. '$INCLUDE: 'colors.bi'
  12. '$FORM hello
  13. '$FORM About
  14. CONST MODELESS = 0
  15. CONST MODAL = 1
  16. DECLARE SUB hearts ()
  17. DECLARE SUB star ()
  18.  
  19. CALL star                                 'the flag
  20. SLEEP 2                                   'wait two seconds
  21. CALL hearts                               'to make a background screen
  22.  
  23. Screen.ControlPanel(DESKTOP_PATTERN) = 0      'permits display of hearts sub
  24. Screen.ControlPanel(TITLEBAR_BACKCOLOR) = BLUE  'otherwise it's black
  25.  
  26. 'first screen  modal
  27.     About.SHOW 1
  28.  
  29. DEFINT A-Z
  30. SUB hearts ()
  31. '*******************************HEARTS.BAS********************************
  32. '    Fills the text screen with a character, can use a screen wipe too by
  33. '    using the space character, or can use a foreground color by using a
  34. '    CHR$(178) etc.   Started this using one character, the heart or CHR$(3)
  35. '    and have progressed to showing all four of the playing card characters
  36. '    with different colors with one version.
  37. '         January 18, 1992
  38. 'row% = CSRLIN                    'in case we need to fix the row
  39. 'col% = POS(0)                    'in case we need to fix the column
  40. COLOR , 0                         'background black
  41. CLS                               'clears entire screen to black
  42.  
  43. FOR i = 1 TO 24 STEP 3          'this makes a three color screen of
  44.       LOCATE i, 1               'bright_red
  45.       COLOR 12, 0
  46.       PRINT STRING$(80, 178);
  47.       NEXT i
  48. FOR j = 2 TO 24 STEP 3
  49.       LOCATE j, 1
  50.       COLOR 15, 0               'bright_white
  51.       PRINT STRING$(80, 177);
  52.       NEXT j
  53. FOR k = 3 TO 24 STEP 3
  54.      LOCATE k, 1
  55.      COLOR 10, 0                'bright_green              
  56.      PRINT STRING$(80, 176);
  57.      NEXT k
  58. END SUB
  59.  
  60. DEFSNG A-Z
  61. SUB star ()
  62. CLS : COLOR 7, 0: PRINT "                                                                                ";
  63. PRINT " "; : COLOR 1, 7: PRINT "█"; : COLOR 15, 1: PRINT "";
  64. COLOR 1, 7: PRINT "███"; : COLOR 15, 1: PRINT " ";
  65. COLOR 1, 7: PRINT "█"; : COLOR 15, 1: PRINT "";
  66. COLOR 1, 7: PRINT "█████"; : COLOR 15, 1: PRINT "";
  67. COLOR 1, 7: PRINT "█████"; : COLOR 15, 1: PRINT "";
  68. COLOR 1, 7: PRINT "█████"; : COLOR 15, 1: PRINT "";
  69. COLOR 1, 7: PRINT "█████"; : COLOR 15, 1: PRINT "";
  70. COLOR 1, 7: PRINT "████"; : COLOR 4, 7: PRINT "██████████████████████████████████████████";
  71. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "███";
  72. COLOR 15, 1: PRINT "  "; : COLOR 1, 7: PRINT "████";
  73. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  74. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  75. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  76. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  77. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  78. COLOR 15, 4: PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄";
  79. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "█";
  80. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  81. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  82. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  83. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  84. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  85. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  86. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  87. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "████";
  88. COLOR 15, 7: PRINT "██████████████████████████████████████████";
  89. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "████";
  90. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "████";
  91. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  92. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  93. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  94. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  95. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  96. COLOR 4, 7: PRINT "██████████████████████████████████████████";
  97. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "█";
  98. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  99. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  100. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  101. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  102. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  103. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  104. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  105. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "████";
  106. COLOR 15, 4: PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄";
  107. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "███";
  108. COLOR 15, 1: PRINT "  "; : COLOR 1, 7: PRINT "████";
  109. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  110. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  111. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  112. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  113. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  114. COLOR 15, 7: PRINT "██████████████████████████████████████████";
  115. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "█";
  116. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  117. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  118. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  119. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  120. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  121. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  122. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  123. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "████";
  124. COLOR 4, 7: PRINT "██████████████████████████████████████████";
  125. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "███";
  126. COLOR 15, 1: PRINT "  "; : COLOR 1, 7: PRINT "████";
  127. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  128. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  129. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  130. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  131. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  132. COLOR 15, 4: PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄";
  133. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "█";
  134. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  135. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  136. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "█";
  137. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  138. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  139. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  140. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  141. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "████";
  142. COLOR 15, 7: PRINT "██████████████████████████████████████████";
  143. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 1, 7: PRINT "████";
  144. COLOR 15, 1: PRINT " "; : COLOR 1, 7: PRINT "████";
  145. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  146. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  147. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  148. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█████";
  149. COLOR 15, 1: PRINT ""; : COLOR 1, 7: PRINT "█";
  150. COLOR 4, 7: PRINT "██████████████████████████████████████████";
  151. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 15, 1: PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄";
  152. COLOR 15, 4: PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄";
  153. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 15, 7: PRINT "██████████████████████████████████████████████████████████████████████████████";
  154. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 4, 7: PRINT "██████████████████████████████████████████████████████████████████████████████";
  155. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 15, 4: PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄";
  156. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 15, 7: PRINT "██████████████████████████████████████████████████████████████████████████████";
  157. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 4, 7: PRINT "██████████████████████████████████████████████████████████████████████████████";
  158. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 15, 4: PRINT "▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄";
  159. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 15, 7: PRINT "██████████████████████████████████████████████████████████████████████████████";
  160. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 4, 7: PRINT "██████████████████████████████████████████████████████████████████████████████";
  161. COLOR 7, 0: PRINT " "; : PRINT " "; : COLOR 4, 0: PRINT "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ";
  162. COLOR 7, 0: PRINT "                                                                                ";
  163. PRINT "                                                                                ";
  164. PRINT "                                                                                ";
  165. COLOR 7, 0
  166.  
  167. END SUB
  168.  
  169.